﻿Public Class viewlog

    Private Sub viewlog_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    Public Sub doLog()
        txtLog.Text = ""
        readLog()
    End Sub
    Private Sub readLog()
        Dim reader As New IO.StreamReader("log.txt")
        txtLog.Text = reader.ReadToEnd
        reader.Close()
        reader = Nothing
    End Sub
End Class